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EDTSHELP = process the HELP commands 16- Sep-1984 VAX-11 Bliss-32 V4.0 Page 1 
1e-888= 198s 3:34:48 NES blSHAS PERS cEDT shcSHeLp.a32;1 "2% «J 

; 1 901 ZTITLE "EDTSHELP = process the HELP commands’ | 
is O0¢ 0 MODULE EDTSHELP ¢ ! Process the HELP commands | e)¢ 
; Z ita {DENT = 'v04-000 ! File: HELP.832 Edit: JBS2015 | : 2 
Bs 33 1 BEGIN | : 2 
: ? 0097 : ee ee eee ed : H 
3 '® * 3 
; 9 0009 1 !* COPYRIGHT (c) 1978, 1980, 1982, 1984 8 * $ > 
; 10 0010 1 !* DIGITAL EQUIPMENT CORPORATION, MAYNARD. MASSACHUSETTS. * . 7 
; i) 901) i* ALL RIGHTS RESERVED. « ; 2 
: ® ° 
; ig $o18 1 !* THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE USED AND sor iee * ; 2 
; 14 0014 1 !* ONLY IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE AND WITH THE * . 2 
: 15 0015 1 !* INCLUSION OF THE ABOVE COPYRIGHT NOTICE. THIS SOFTWARE OR ANY OTHER * . 2 
: 16 0016 1 !* COPIES THEREOF Y NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY * s 2 
; 17 0017 1 !* OTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY * = 
; + id 4 : Hs TRANSFERRED. * : 2 
° . ® ° 
: $9 ait 3 1 !e phe INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE * ; 3 
; 1 0021 1 !«# SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT * 3; 3 
: $$ 0038 : :* CORPORAT LON. * : 2 
P4 za ® é 
: 24 0024 1 !* DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR pam OF ITS * 3 2 
H 25 0025 1 !* SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL * 3 
; 0026 1 !* * z 3 
3 7 0027 1 !* * ye 
4 25 st ; LRA RARER AAA } é 2 
. ' a 
; 50 9080 .- ; 5 
; 1 0031 1 !++ s 3 
4 3 0032 1 ! FACILITY: EDT -- The DEC Standard Editor 5.3 
; @ 0033 1! 
; «634 0034 1 | ABSTRACT: 
3 32 0035 1! 
3 6 0036 1! Process the HELP commands. 
We 4 0037 1} 
; 38 o038 1 | ENVIRONMENT: VAX/VMS only 
; 0039 1: 
; “9 srk : AUTHOR: Bob Kushlis, CREATION DATE: 13-0CT-1979 
: 4@ 0042 1 | MODIFIED BY: 
; 64 0043 1! 
: | (44 044 1! ~803 - Regularized headers 5.04.58 nate at} JBS 24-Feb-1981 
>; 645 045 1: - Fix module name. 
; 46 0046 1! “$9 - Use new message m4 hh "Oh=hug-1981 
3; 67 0047 1 | 2-008 - Add new message for no hel SMB 19-Nov-1981 
; 648 0048 1 | 2-009 - Add new global for help file name and default. SMB 17-Dec-1981 | 
7: «649 0049 1 | 2-010 - Print a message on close errors. JBS 12-Apr-1982 
; 20 0050 1 ! 2-011 = Return a value from setting the help file nam JBS 04-May-1982 
; 1 Boa) 11 Q- \¢ - Change cotoust errigth for or SET HELP. SMB 3-May y-198 
3 26 O3¢ 1 | 2-013 - Maximum terminal w r the librarian is 152. JBS 1 vaug- 1962 
; > Oe 1! 2-014 - Add some code for OUTPU HELP but comment it out until VMS 
; «656 054 1! 9 ves more support iS SET HELP command, more paren gters...). SMB 01-Mar-1983 | 
: 56 0036 : 12 2-015 = Improve the appearance of the listing. JBS 14-Jun-198 | 
o 0057 1 
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HELP = process the HELP commands 


arations 


em a ed ed ad ad a td = a 8 os 8 = = 2 = = = 3 2 2 2 > 


RSBTTL ‘Declarations’ 
TABLE OF CONTENTS: 


REQUIRE ‘EDTSRC: TRAROUNAM' ; 


FORWARD ROUTINE 
EDTSSOUT_HLP : NOVALUE, 


GET_HEL 
EDTSSSET _HLPFNAM; 
! 


INCLUDE FILES: 


REQUIRE "EDTSRC:EDTREQ'; 
REQUIRE ‘EDTSRC:SYSSYM'; 


| MACROS: 

NONE 
EQUATED SYMBOLS: 
NONE 

: OWN STORAGE: 
OWN 


KEY_COUNT, 
LINE_HELP; 


; EXTERNAL REFERENCES: 


EXTERNAL ROUTINE 
tbs hg, ERR, 


sOut =FHtGUr. 
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LBRSCLOSE; 
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! Print help using LBRSGET_HELP 


' Count of the key number we're on 
i {= use Line mode help format 


! Q= use keypad mode help format 
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CSlGR? —_EBTNELT aBOCTBLP*Eonhomer® HAGE QRNNE AMBER DB terse oh 
; ! : 4 9 ! rserT *EDTSSOUT_HLP = HELP command’ | 
' P nd 
ee 5 : i eosay RING, sents le } iiivese at HELP command pen 
; i 7 : 1 LEN ' Length of those arguments egies aa 
: 135 oF 4 1 ADDI IONAL i 7 = print key names and a ona p | 
3 4 0735 (1 ) : NOVALUE = | 
mJ u7 98 1 
; «#138 07 1 te¢ | 
; 139 0738 : FUNCTIONAL DESCRIPTION: | 
; ie} Ord : Process the HELP commands. 
: 128 Oe 1 FORMAL PARAMETERS: 
; 148 Ope : i STRING Address of the text string that contains the HELP arguments 
4 143 O46 | LENG Length of that string 
oO i 
: 129 b7e8 i i ADDITIONAL * = print key names and additional help 
; 150 0749 1! 
. a 0750 : IMPLICIT INPUTS: 
; 18 0733 ! EDTS$G_HELP_SET | 
; 138 oraz 1 ' IMPLICIT OUTPUTS: | 
. on ee | 
; 7 757 1 5 | 
; 139 0788 | i ROUTINE VALUE: 
: 48) ort NONE 
: 16 0761 1 | | 
; 168 154 i SIDE EFFECTS: 
: 188 orez 1! Calls EDTSSSET_HLPFNAM if it has not already been called. 
; 166 0765 1! 
: 167 0766 1 i- 
: 168 0767 1 
: 1% o769 siesan 
10 §770 —, ! for help file name 
: : K (8, BYTE) String descriptor for help 
: 18 Ore HELP RESET CUDStse brHPE} : DSCSK_DTYPE Ty 
: 178 ae LINE DESC : B ock TB, eT 7 ” pert tput string descriptor for LBRSOUTPUT_HELP 
; YPE] = DSCSK_DTY 
: i$ re PRESET ( fBstse_or¥ee} = DSCSK-CLASS"SS 
: 148 4) HELP_FLAGS = | Flags, for LBRS UIPUT HELP 
° . He 
: 186 re CEneta POINTER, : Relater to Rne Length of ote file name 
: 181 780 POIN TER, 
: POINT, | 
: 188 ; Fopics. BLOCKVECTOR ay Bs BYTE), ! Topic descriptors. | 
3; «184 7 ot ET HELP anes VECTOR (10), 
: 1B Be CETTHELP. SfaTUS; 
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EDTSHELP DISHELP = process the HELP commands 16-Sep-1984 00:31:4 VAX-11 Bliss-32 V4.0-74 
sO5b dT$ T_HLP = HELP command 12-8071 382 99:33:78 DLAKSVMGMASTERSCEDT  SRCSHELP.B32:1 (3) | 
: 5 ‘+ 
7 3 ! If we are using Line mode help format then we want additional information 
f ' to be printed. If we are using keypad help format then we don't want the 


additional topics to be displayed. 
" LINE_HELP = .ADDITIONAL; 


i The following will have code to be used for LBRSOUTPUT_HELP turned off by 
use of comments until VMS implements the SET HELP/PROMPT command. 


IF (.LINE_WELP EQL 0) | 


‘ BEGIN 
i We cannot use LBRSOUTPUT_HELP so we must initial 


aS se SS SF YS os LS SH 


SSSS3 
ans 


ize the file, open it 
and parse the help topics to prepare them for LBRSGET_HELP. 


| 
i¢ | 
! If EDTS$G_HELP_SET then the help file has already been opened, so 
: set OPEN_STATUS 
If ( NOT .EDT$$G_HELP_SET) | 
| 
| 


$0U 
THEN 
OPEN_STATUS = EDTSSSET_HLPFNAM (CHSPTR (EDTS$$T_HELP_NAM), 
~EDT$$G_HELP_NAMLER) 
ELS 
4 
4 
4 
4 
4 
4 
4 
4 
4 


E 

OPEN_STATUS = 1; 
IF (.OPEN_STATUS) 
HEN 

BEGIN 


| 
| 
'¢ 
| 


tt I IOOOOOO 


DONO VLS WN" OOONOUS 


Isolate all the topic strings in the command. 
; POINTER = .STRING; 

— POINT = CHSPTR (.POINTER, .LENG); 
EBTSSCNV_UPC (.POINTER, .LENG); 


INCR I FROM 0 TO 4 DO 


ALAMO 


INCR I FROM 0 TO 4 DO 
BEGIN 


NOUS WN —OOONOUE WTO 


WHILE ((CHSDIFF (.P 
(CHSRCHAR (.POI 
(CHSRCHAR (.POI 
POINTER = CHSPLU 


IF CHSDIFF (.POINTER, .E_POINT) EQL 0 


OINT) LSS 0) AND | 
') OR f 
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8 
= process the HELP commands 1b-sep-19 4 00 :31:4 
HLP = HELP command 14-Sep-1984 12:23:1 


aw 


BEGIN 

NUM_TOPICS = .1; 

EXITLOOP; 

END; 

TOPICS C.1, DSCSA_POINTER] = .POINTER; 

IF (CHSRCHAR (.POINTER) EQL %C'/*) THEN POINTER = CHSPLUS (.POINTER, 1); 
WHILE ((CHSDIFF (.POINTER, .E POINT) LSS 0) AND : 

(CHSRCHAR (.POINTER) NEQ ZC* ') AN ; 

(CHSRCHAR (.POINTER) NEQ ASC_K a? AND ; 

POINTER = CHSPLUS (.POINTER, 1); 


ta C.1, DSCSW_LENGTH) = CHSDIFF (.POINTER, .TOPICS C.1, DSCSA_POINTER]); 


= 
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2 cD CD CD CD CD CD OD 
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'¢ 
If no topics are found, then default to help. 


WN — O OONOUS WN —OOONOu 


oooooo 
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AAAS 


IF (.NUM_TOPICS EQL 0) 
THEN 


H] = 4; 
ER] = UPLIT BYTE('HELP'); 


Wwnr—O0o~ 


t+ 
Now, ask for help! 


SAN wise 


KEY_COUNT = 0; 

GET“HELP_STATUS = LBRSGET_HELP (EDT$$Z_LBR_INDEX, ZREF (MIN (132 
LINE~HELP, fopics 0,70, 0, 0 0}. ToPTcs Se. us ie he i 
ToPits C3. 0, 0, 0. 63, ToPICc§ C4; 0, 0, 0, 63): 


IF ( NOT .GET_HELP_STATUS) THEN SIGNAL_STOP (.GET_HELP_STATUS); 


Ox 
vo 
ese 
om 


'¢ 
And output any remaining characters. 


IF (.EDTSSA_FMT_CUR NEQA EDTSST_FMT_BUF) THEN EDTSSOUT_FMTBUF (); 


SEANLESSELEARALSS 


END; 
91 
36 '¢ 
9 ' Code Spec if te to the use of LBRSOUTPUT_HELP. WE don't have to parse 
94 ' the he 3 Line in this case so we skip he above code. Note also that 
95 } Lgnsou UT_HELP does its own initialization and opening of the help 
: e. 
7 5 i 
9 ‘ END 
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8 
rocess the HELP commands $-5 Sep-1984 74 VAX-11 iss-32 V age 
LP = HELP command ¢-3 Sep =138 99: 34: ig Disk SK$V nen ASTER: tt 1 sRCSHELP. 832;1 . 
BEGIN 
+ et tae = Cette pnec ss + HLPSM = EROYP : Attn. SYSTEM; ! Use HLPSM_PROMPT for ?(Sub]Topic promptin | 
+ ppstey LENGTH -EDT$$G HELP LEN; 
HELP_DESC CDSCS$A_ <POINTER). = ENSPIRTEDTSST. MMELP! NAM); 
POINTER = STRING; 
CONE DESC foscsa_p OINTER] = .POINTER; 
LINE_DESC COSCSw- ~TENGTH = LENG; 
For the call to LBRSOUTPUT_HELP we eey want to use our own output routine 
in place of LIBSPUT_OUTPUT, although this seems to be adequate when tested. 
If the Se ht bit is on, then we must supply our own input routine in place 
of L Bstes ,poceuse prompt Ceepenere may @ coming from a journal or 
init ol ation file. We cannot turn this bit on until OMS provides a SET 
HELP/LNOJPROMPT command for compatibility reasons. 


Without HLPSM_PROMPT set, the only Ra 5 buy with this code is the of hgh 


to say “HELP Snewhelpfile command’’ 


and t “KELP command’. 
«4, Wile you simply type 


GET_HELP_STATUS = LBRSOUTPUT HELP (LIBSPUT_OUTPUT, ZREF ((MIN (132, 


HELP_FLAGS, LIBSGET_INPUT); 


from another help file by simply typi ng 
mpen heres’ want to set he 


out fecert ine to LBRSOUTPUT HEL 


p 
“SET HELP nevielettie 
p back to the default 


-EDTS$$G_TI_WID))), LINE_DESC, 


IF ( NOT .GET_HELP_STATUS) THEN SIGNAL_STOP (.GET_HELP_STATUS); 


IF (.EDTSSA_FMT_CUR NEQA EDTSST_FMT_BUF) THEN EDTSSOUT_FMTBUF (); 


END; 


50 4C 45 48 00000 P.AAA: 


of routine EDTS$SOUT_HLP 
-TITLE EDTSHELP EDTSHELP - process the HELP commands 
IDENT \v04-000\ 

-EDTSDATA,NOEXE, 


~PSECT PIC,2 


00000 outs maa 
00004 LINE_HELP: 
~BLK 


»PSECT 
-ASCII 


-EDTSCODE,NOWRT, SHR, PIC,2 


Re EDTSSCNV_UPC 
EDTSSFMT_LIT 
EDISSFMT_MSG 
LBRSINI~ ~CONTROL 
$GeT_INP 
® LaRsouT PUT JHELP 
CBRSCLOSE 
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; Routine Size: 
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- output HELP text 
peat. "GET HELP - output HELP text’ 
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= process the HELP commands 1b-se Sep-1984 VAX-11 Bliss-32 V 
> 73op71982 99:33:78 «| bE Siw ShaSfenccts 


NE GET_HELP ' Output HELP text 

ESC ! The text to be output 
FLAGS i Flag bits 
ADDITIONAL, i Data erqunent to LBRSHELP 
CUR_KEY_LEVEL ! Current key level 


lee 
FUNCTIONAL DESCRIPTION: 
Output a Line of help text. This routine is called from LBRSHELP. 


{FORMAL PARAMETERS: 


PPPS ES 
oOo 
oouono 
wins & 
OOONG VSWIN—OO@ 


DESC The text to be output 
FLAGS Flag bits 

ADDITIONAL Data argument to LBRSHELP 
CUR_KEY_LEVEL Current key level 


IMPLICIT INPUTS: 


o 
AMMAN 


NONE 


IMPLICIT OUTPUTS: 


oO 
oa 
FER ISSaeSoeur 


NONE 


{ROUTINE VALUE: 


1 


i SIDE EFFECTS: 
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Calls EDTSSFMT_LIT and EDTSSFMT_CRLF . 


BEGIN 


MAP 
DESC : REF BLOCK (8, BYTE); 
fog ASST TONAL NEQ 0) OR (..FLAGS EQL 0)) 


pes¢ COSCSA_POINTER], .DESC CDSC$W_LENGTH)); 


1 OSRCIHELP. B32;1 


-_ | 


8 
EDTSHELP EDTSHELP = process the HELP commands 18 $ep-1984 74 VAX-11 Bliss-32 V4.0 P 11 
rte GET_HELP = output HELP text Beet RRe Shey eeeBAlSfeacceot sacSueve.es2;1 ' 2% cd} 

; 393 1 ' So the message won't get printed twice : 
3% 4 i. 9 get p | 
: IF (.KEY_COUNT EQL 0) ; 
; 3 995 THEN : 
; 38 996 BEGIN ; 
; 99 EDTSSMSG_ TOsTR (EDT$_NOKEYHLP) ; ; 
; 4 144 EDTSSFMT— ; 
; $01 KEY_CO COUNT’ ; Or KEY COUNT + 1; ; 

: t i ! RETURN (1) : 

3 208 1908 END; : ! of routine GET_HELP : ? 

i § 

000C 00000 GET_HELP: ‘ é 

.WORD Save R2,R3 7 0935 : § 
53 00000000' Fr 9E 80008 MOVAB KEY COUNT, R3 3 ; 

52 000000006 00 a 000 MOVAB EDT SSFAT CRLF, R2 3 : § 
0c B¢ D5 0001 TSTL @ADDI TIONAL 3 0980 : 

0 if 001 BNEQ 1$ 3 2 

08 BC D5 0001 TSTL aFLAGS : : § 
16 is 0018 BNEQ 2s 3 : 

50 04 ac p OO1A 1$ MOVL DESC, RO : 0983 o-4 
7E 60 3C OOO1E MOVZ2WL (RO), -(SP) : ; 
04 AO DD 00021 PUSHL  4(ROS : ; 
000000006 00 be FB 00024 CALLS age EDTSSFMT_LIT 3 $ 

62 00 FB 00028 CALLS #0, EDTSSFMT_CRLF : 0984 | 

1C 11 000 BRB 3$ ; 0980 - 4 

01 08 BC D1 00030 2$ CMPL @FLAGS, #1 ; 0988 » 3 

i if 00 BNEQ ; | 

63 D5 000 TSTL KEY_COUNT + 0994 = 3 

12 12 000 BNEQ 3$ ~ : » 3 

000000006 8F DD 0003A PUSHL scors NOKE YHLP 3 0997 » 3 

000000006 09 01 a) 90040 CALLS ESTS$MSG_TOSTR ; - 

6 0 FB 00047 CALLS #0. EDTSSFRT_ “CRLF ; 0998 4 

63 D6 0004A INCL _COUNT : 0999 . 3 

50 01 DO 0004C 38 MOVL i : 100 » 3 

04 0004F RET ; 100 = 4 

; Routine Size: 80 bytes, Routine Base: _EDTSCODE + 0146 | : i 
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DISHELP - process the HELP commands Jo~sen~ 138? 09:34:46 VAX-11 Bliss-32 ed 
DISSSET_HLPFNAM = set help Library name 14-Sep-1984 12:23:1 DISKSVMSMASTER:CEDT.SRCJHELP.B32;1 


ZSBTTL ‘EDTSSSET_HLPFNAM = set help Library name' 

GLOBAL ROUTINE EDTSSSET_HLPFNAM ( ' Set help | torery name 
ADDR, ! Address of new HELP Library name 
LEN ! Length of that name 


+ 
FUNCTIONAL DESCRIPTION: 


Set the name of the help Library. Attempt an open to force a 
parse of the name and return an error if no help available. 


FORMAL PARAMETERS: 
ADDR Address of new HELP Library name 
LEN Length of that name 
IMPLICIT INPUTS: 
EDTSS$T_HELP_NAM 
EDTS$G_HELP_NAMLEN 
EDTS$G_HELP_SET 
EDT$$Z_LBR_INDEX 
IMPLICIT OUTPUTS: 
EDTSST_HELP_NAM 
EDT$$G_HELP_NAMLEN 
EDTS$G_HELP_SET 
EDT$$2_LBR_INDEX 
ROUTINE VALUE: 


1 = success 


HS FAWAAWAAIANI IIIA IPONUNINPININDDD 2 OO OO OOO 


arti adam siatiatatat ai miata aia aaa ada eadadadbadadadad FRITI 
SOO 9 9 SSO ORS OSE Sooo pe peeeesesssssseseseeseseseees 
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0 = invalid string 
r SIZE EFFECTS: 
4 NONE 
4 
4 Sica 
4, 
rs BEGIN 
5 LOCAL 
5 RESULT_LEN, ! Length of resultant name 
5 PARSE_RANAM : BLOCK a) MAXRSS, BYTE], ! Help file name after OPEN 
5 HELP_BESC : a ttt: C erie) ! Descriptor for help name 
5 PRESET ( CDSCSB_DTYPE) = DSCSK_DTYPE_T, 
5 Cosc$B CLAS 33 = OS KCLASS_S) > 
5 RESULT_DESC : BLOCK (8, BYTE ! Resultant help file name 
5 PRESET ( COSC$B_DTYPE) = BSCek DTYPE_T, 
5 COSC$B_CLASSJ = DSC$K CLASS $) 
5 HELP_DEFAULT_FILE_NAME pest : BCOCK (8, BYTE] |! Help default file name 
PRESET (“CDSCSB_DTYPE) = DSCSK_DTYPE_T, 


EEE 


A aff off off off off off off off off off off off off oft of alt of dali lal all Il ll Cl AA LA A At 
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EDTSHELP EDTSHELP = process the HELP commands 18-56 -1984 00:31:4 VAX=11 Bliss-32_V4.0-74 Page 13 EDTS 
RA 000 EDTSSSET HL FNAM = set help Library name 1 ~300 138% 99:34:98 NP ERSUNGMASTERSCEDT SRCTHELP.B32:1 . (5) VO4- 
H eee } 6 COSC$B_CLASSJ = DSCSK_CLASS_S); ; 

; $08 1 IF (.LEN GTR NAMSC_MAXRSS) | : 

; 46 1064 THEN : 

; 46 1065 BEGIN . 

:. 1 : EDTSSFMT_MSG (EDTS_INVSTR); ‘ 

3 rh 196 RETURN (0); ! File name too long ; 

i 4m 1089 : 3 
; 47 1070 IF (.LEN NEQ 0) ; 

3; 474 1071 THEN : 

: 475 1076 BEGIN : 

: ore 107 HELP_DESC Pos cou LENGTH) = .LEN; ‘ 

: 47 1074 HELPDESC CDSCSA~POINTER] = CHSPTR (.ADDR); : ; 
; 478 1075 END . 3 
3: 479 1076 ELSE : 

; 480 1077 4 : 4 
5 ret 34: No file name was given, so restore it to the default help file ‘ 3 
; 48 1080 EGIN ; & 
> 484 1081 HELP_DESC Hing yt: = CHSRCHAR (EDTSS$T_HDEF_FILE); : 4 
: 485 1086 HELP_DESC CDSCSA_POINTER] = CHSPTR (EDTSST_ADEF_FILE, 1); ‘ | 
; 486 108 END; . 4 
3; 487 1084 ; 

; 488 1085 IF (.EDTS$$G_HELP_SET) : 4 
; 489 1086 THEN : 4 
: 490 1087 + ‘ ; 4 
3 rh Hh 43 } Close the old help library because we are opening a new one : | 
; 49 1090 $s 4 
; 494 1091 IF ( NOT LBRSCLOSE (EDT$$Z_LBR_INDEX)) 2 4 
3 6495 1036 THEN : 4 
3 4% 109 BEGIN 2 4 
> 497 1094 EDTSSFMT_MSG (EDT$_HLPFILCLO); . 4 
; 498 1095 4 RETURN (0) Be 
: 499 1096 ; 2 4 
; 500 1097 s 4 
; 501 1098 '¢ , 4 
; 206 19% Attempt to initialize the help library. Do this whenever Help is SET. | : y 
: 504 1101 ; FE 4 
; 209 1108 IF NOT LBRSINI_CONTROL (EDT$$Z_LBR_INDEX, %REF (LBRSC_READ), %REF (LBRSC_TYP_HLP))) 1s 
e * 

3 $07 Wee BEGIN A, S| 
; 508 1105 EDTSSFMT MSG (EDT$_NOHLPINI); AG 
3 44 1106 RETURN (0); $ 4 
; 510 1107 ; 3 4 
. a 1108 f@ 
3 \¢ 1109 '¢ g 4 
; 17 4319 : Set up the default help file name descriptor : y 
; 18 1118 HELP_DEFAULT_FILE_NAME_DESC CDSC$W_LENGTH] = CHSRCHAR (EDTSS$T_HDEF NAM); | 3 4 
; 216 W113 ,, HELPLDEFAULTIFILETNAME_DESC COSCSATPOINTER] = CHSPTR (EDTSST_ADEF _NAM, 1); : 
; ‘+ . 

; 218 at}? : Set up the resultant help file name descriptor | : 
: 520 Hig RESULT_DESC CDSC$W_LENGTH] = NAMSC_MAXRSS; | 3 4 
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- focess the HELP commands 5 -1984 74 VAX-11 Bliss-32 V 14 
TAUPE = set help library name 16- Sep-1984 99: 34 18 DISKSVMSMASTER: cto i SRCSHELP. B32;1 a (5) 
RESULT DE DESC _UBSCSA_ POINTER] = CHSPTR (PARSE_HNAM); | : 
Attempt to open the help Library. | ; 
IF ( WOT ,LRSOPEN CF (EDT$$Z_LBR_INDEX, HELP_DESC, 0, HELP_DEFAULT_FILE_NAME_DESC, 0, RESULT_DESC, ; 
THEN : 
Epis $G_HELP_SET = 0; ' Next ti the old help fil 
= > we me re-open ° 
EDTSSFAT_MSC (EDT$_NOHLPAVL); : an ee eee ee : 
EDISSMSGITOSTR (EDTS FILNAMD: | : 
If (.RESULT_LEN EOL 0) : 
. EDTSSFMT_STR (.HELP_DESC COSCSA_POINTER], .HELP_DESC CDSC$W_LENGTH]) | ; 
EDTSSFMT_STR (.RESULT_DESC COSCSA_POINTER], .RESULT_LEN); 
EDTSSOUT_FMTBUF (); F 
RETURN (0); : 
roa EDTS$G_HELP_SET = 1; ! Means that SET_HELP was successful in opening a help file ; 
| Store the new Help File name and name length in the globals : 
" EDTSSCPY_MEM (.RESULT_LEN, CHSPIR (PARSE_HNAM), CHSPTR (EDTS$T_HELP_NAM)); : 
EDTSS6_uF HELP P_NAMLEN = 7RESUL TLL : 
END; a ! of routine EDTS$SET_HLPFNAM 3 
01FC 00000 ENTRY EDTSSSET_HLPFNAM, Save R2,R3,R4,R5,R6,R7.R8 ; 1006 ; 
58 000000006 00 9€ 90008 OVAB EDTSSFMT"MSG, R8 ; : 
57 000000006 00 9€ 00009 MOVAB EDT$$Z_LBR_INDEX, R7 : : 
56 000000006 00 9€E 00010 MOVAB EDTSS$G"HELP SET, R6 : : 
5E FED CE 9 90017 MOVAB sess (SP), § : ; 
1¢ AE 010E0 6 8F DO 0001C MOVL 7 92726, HELP_DESC > 1055 ; 
AE D4 00024 CLRL HELP DESC : : 
14 AE 010E0000 8F DO 00027 MOVL sow 694 RESULT_DESC > 1058 ; 
18 AE D4 O002F CLRL R UL §c+4 : ; 
Oc AE 010000 8F DO 00032 MOVL 6947 NELP DEFAULT FILE NAME _DESC > 1061 : 
19 AE D4 0003A CLRL HELP PADEEA AULT_FICE_NAME_DES ; ; 
OO0000FF  8F 08 A D} 9050 cHPL ; 1063 : 
000000006 ; dD O94? PUSHL  #EDTS_INVSTR > 1066 : 
11 00040 BRB 5$ F : 
p O04F 1$: TSTL EN : 1070 : 
0 2¢ BEQL $ : : 
Bes Ate MAEAMEEE ca el | 
11 0005E BRB 3$ : 1070 : 
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000000006 


000000006 
000000006 


00000000G 00 $6 
000000006 
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Ou 2000 EDTSSSET_HLPFNAM = set help Library name 
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T.SR 


BRSINI CONTROL 


NOHLPINI 
BTSSFMT_MSG 


TS$T_HDEF_NAM, - 

LP_DEFAULT FILE_NAME_DESC 
TSST_HDEF_RAM+1, - 

LP_DEFAULT FILE NAME DESC +4 
5; RESULT DESC 

PARSE_HNAM, RESULT_DESC+4 

RESULT_LEN 

RESULT~LEN 

RESULT DESC 


HELP_DEFAULT_FILE_NAME_DESC 
HELP. DESC 

#7, LBRSOPEN 
EDT$$G_HELP_SET 


#EDTS_NOHLPAVL 
#1, EBTSSFMT_MSG 
NAM 


VIEMIMOBVBVABVALFBLlBVVBVDWZA 20MM —s 


WEOTS FIL 

#1, EDTSSMSG_TOSTR 

RESULT LEN 

HELP_DESC, -(SP) 

HELPLDESC+4 

RESULT_LEN 

RESULT~DESC+4 

a. EDTSSFMT_STR 

#0, EDTSSOUT—FMTBUF 

#1, EDTS$G_HELP_SET 
RESULT_LEN; PARSE_HNAM, EDTS$T_HELP_NAM 
RESULT“LEN, EDT$$G_HELP_NAMLEN 
#1, RO 

RO 
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Wb1-000" EDISSSET_MLPFRAM’ = "set hetp Cibrary name iSseoct age 99:33:98 DNScbum@mASTeRsceot sacSnere.e3z;1 "29° (Jo 
; Routine Size: 317 bytes, Routine Base: _EDTSCODE + 0196 


OR Vicrmen 


COMMAND QUALIFIERS 
BLISS/CHECK=(FIELD, INITIAL,OPTIMIZE) /NOTRACEBACK/LIS=LIS$:HELP/OBJ=OBJ$:HELP MSRC$:HELP.B32/UPDATE=(ENH$: HELP) 
719 code + 12 data bytes 

: Elapsed Time: 00:47. 

; Lines/CPU Min: 1855 

; Lexemes/CPU-Min: 8244 


; Memory Used: 160 pages 
; Compication Complete 


EDTSHELP - process the HELP commands 1$-52p-1986 00:31:4 VAX-11 Bliss-32 V4.0-742 Page 17 
EDTSSSET_HLPFNAM = set help Library name 14-Sep-1984 12:23:1 DISKSVMSMASTER: CEDT. SRCIHELP. 832;1 (6 
1138 ! END ! of module EDTS$HELP 
1154 0 ELUDOM 
-EXTRN LIBS$STOP 
PSECT SUMMARY 
Name Bytes Attributes 
-EDTSDATA NOVEC, WRT, RD ,NOEXE,NOSHR, LCL, REL, CON, PIC,ALIGN(2) 
“EDTSCODE 723 NOVEC, ‘NOWRT, RD , EXE, SHR, LCL, REL, CON, PIC,ALIGN(2) 
$ Library Statistics 
BE cae Sp oe ed | oe ni: 1 ome Symbols -------- Pages Processing 
: File Total Loaded Percent Mapped Time 
; $DUA28: CEDT. SRCJEDT.L32;1 377 2 0 40 00:00. 
3 $DUA28: CEDT. ait see ee at: ¢ 1 50 7 00: 230.4 
3 SDUA28: CSYSLIBISTARLET.L32;1 977 10 0 581 00:03.9 


0134 AH-BT13A-SE IG. PMENT CORPORATION 
V135 vax7vMS v4.0 AND PROPRIETARY 


